home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / crobots7 / cornerkl.r < prev    next >
Text File  |  1988-07-20  |  3KB  |  94 lines
  1. /* Corner Killer */
  2. /* By Eric Maddox */
  3. /* moves to the center and shoots into the corners */
  4. main ()
  5. {
  6. int dam; /* damage */
  7. if (loc_x()<500)
  8.   {
  9.    while (loc_x() < 400)
  10.         drive (0,100);                                     /* goto x center */
  11.    while (loc_x() < 440)
  12.         drive (0,50);
  13.    drive (0,0);                                                     /* stop */
  14.   }  
  15.   else                                       /* if robot is right of center */
  16.       {
  17.        while (loc_x() > 600)                                      /* go left*/
  18.             drive (180,100);
  19.        while (loc_x() > 560)
  20.             drive (180,50);
  21.        drive(180,0);                                                /* stop */
  22.       }
  23. if (loc_y()<500)
  24.   {
  25.    while (loc_y() < 400)
  26.         drive (90,100);                                    /* goto y center */
  27.    while (loc_y() < 440)
  28.         drive (90,50);
  29.    drive (0,0);                                                     /* stop */
  30.   }
  31.   else                                       /* if robot is above of center */
  32.       {
  33.        while (loc_y() > 600)
  34.             drive (270,100);                                     /* go down */
  35.        while (loc_y() > 560)
  36.             drive (270,50);
  37.        drive(270,0);                                                /* stop */
  38.       }
  39.                         /* Now the robot should be very close to the center */
  40. while (1)                                                  /* infinite loop */
  41. { 
  42.  dam=damage();
  43.  while (damage()-3 < dam)               /* while robot is not taking damage */
  44.       {
  45.        fire (37);
  46.        fire (45);                             /* fire in upper right corner */
  47.        fire (53);
  48.        fire (127);
  49.        fire (135);                             /* fire in upper left corner */
  50.        fire (143);
  51.        fire (217);
  52.        fire (225);                             /* fire in lower left corner */
  53.        fire (233);
  54.        fire (307);
  55.        fire (315);                            /* fire in lower right corner */
  56.        fire (325);
  57.       }                                                        /* end while */
  58.  while (loc_x() < 600)                             /* dodge by moving right */
  59.       drive (0,100);
  60.  while (speed() > 0)
  61.       drive (0,0);
  62.  while (loc_x() > 560)
  63.       drive (180,100);                                          /* recenter */
  64.  while (loc_x() > 530)
  65.       drive (180,50);
  66.  drive(180,0);                                                      /* stop */
  67. }                                                      /* end infinite loop */
  68. }                                                               /* end main */
  69. fire (dir)
  70. int dir;
  71. {int
  72.      range,
  73.      exact, /* percision of scanner */
  74.      dam;
  75. exact=10;
  76. range=scan(dir,exact);
  77. dam=damage();
  78. while ((range > 1) && (damage()-1 < dam))
  79.      {
  80.       if (exact > 1)
  81.         --exact;                                         /* decrement exact */
  82.       if (exact = 0)
  83.         cannon (0,0);
  84.       if ((scan(dir,exact)==0) && (scan(dir,exact+1) > 0))
  85.         dir=dir+1;
  86.       if (scan(dir,exact)==0)
  87.         dir=dir-2;
  88.       range=scan(dir,exact);
  89.       if ((range > 50) && (range < 750))
  90.         cannon(dir,range);
  91.      }
  92. return;
  93. } /* end fire */
  94.